Top 10k strings from League Table (1984)(Hobby Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
5 n;" ";n$(n), 4 ;"Form points" 3 n$(p1)=n$(l1) 3 ;" " 3 " ": 3 2 x(l1)=x(l1)+j 2 t$(q)=t$(q+1 2 n$(n);" Took over TOP SPOT" 2 n$(n);" Moved up ";r(n);" Places" 2 n$(n);" Moved up ";r(n);" Place": 2 n$(n);" Dropped 1 Place": 2 n$(n);" Dropped ";-(r(n));" Places": 2 n$(l1);" REMAINING GAMES" 2 j$(z);" ";m(z);" - ";o(z): 2 j$(k)=c$(1 2 ;"***WELL DONE ";k$(1 2 ;" PRESS ENTER WHEN READY" 2 "HARDCOPY (y/n)";r$ 1 z(q)=z(q+1 1 z(n3)=z(n3)+1 1 y(q)=y(q+1 1 y(n2)=y(n2)+1 1 x(q)=x(q+1 1 x(l1)=x(l1)+t(l1) 1 x(l1)=x(l1)+i: 1 x(l1)=x(l1)+e: 1 x(l1)=t(l1) 1 x(l1)=((c-1 1 w(q)=w(q+1 1 w(n3)=w(n3)+1 1 w(n2)=w(n2)+1 1 t(q)>t(q+1 1 t(q)=t(q+1 1 t(q)<t(q+1 1 t(n3)=t(n3)+j 1 t(n3)=t(n3)+i: 1 t(n2)=t(n2)+j: 1 t(n2)=t(n2)+e: 1 t$(q)=n$(q) 1 t$(l1)=n$(l1): 1 r(q)=r(q+1 1 r(q)=r(q)-1 1 p(q)=p(q+1 1 p(n3)=p(n3)+1 1 p(n2)=p(n2)+1 1 n$(q)=n$(q+1 1 n$(p60)=k$(1 1 n$(p1)=l$(l1,n 1 n$(n2);" ";h;" ";n$(n3);" ";b 1 m$(q)=m$(q+1 1 m$((n3),((z(n3)*10 1 l(q)=l(q+1 1 l(n3)=l(n3)+1 1 l(n2)=l(n2)+1 1 l$(q)=l$(q+1 1 l$((n2),((y(n2)*10 1 h(q)=h(q+1 1 h(q)=e(q)+4 1 h(l1)-h(p1)>5 1 h(l1)-h(p1)>3 1 h(l1)-h(p1)<2 1 h(l1)-h(p1)<-2 1 h$=n$(n2): 1 f(q)=f(q+1 1 f(q)-a(q)>f(q+1 1 f(q)-a(q)<f(q+1 1 f(n3)=f(n3)+b: 1 f(n2)=f(n2)+h: 1 e(q)=e(q+1 1 e(n3)=e(n3)-1 1 e(n3)=e(n3)+1 1 e(n2)=e(n2)-1 1 e(n2)=e(n2)+1 1 d(q)=d(q+1 1 d(n3)=d(n3)+1 1 d(n2)=d(n2)+1 1 a(q)=a(q+1 1 a(n3)=a(n3)+h 1 a(n2)=a(n2)+b: 1 Sheff Wed Aston V Everton West Ham Ipswich Notts For Chelsea Liverpool Stoke CityNorwich Arsenal SunderlandMan UnitedWatford Leicester W B A Q P R SouthmptonSpurs Y 1 Newcastle H 1 Man United 1 Luton T 1 Leicester Arsenal MAN UNITEDQ P R Coventry Watford Luton T SouthmptonSpurs Aston V W B A Everton West Ham Chelsea Notts For Sheff Wed Ipswich SunderlandLiverpool Stoke City P 1 LEAGUET 1 LEAGUE DIVISION ONE 1 Everton Spurs Man UnitedLiverpool Arsenal SouthmptonChelsea Sheff Wed Notts For Aston V Watford W B A Leicester West Ham Newcastle Q P R Luton T Oxford UtdIpswich Coventry BirminghamMan City 1 Everton Spurs Man UnitedLiverpool Arsenal SouthmptonChelsea Sheff Wed Notts For Aston V Watford W B A Leicester West Ham Newcastle Q P R Luton T Oxford UtdIpswich Coventry BirminghamMan City 1 Created with Ramsoft MakeTZX 1 Coventry A 1 ;n$(n2);" ";h;" ";n$(n3);" ";b;" ": 1 ;"x = PREDICT FINAL LEAGUE TABLE" 1 ;"t = DISPLAY LEAGUE TABLE" 1 ;"s = INITIAL SET UP" 1 ;"r = ALTER LEAGUE TABLE DATA" 1 ;"p = DISPLAY TEAM RESULTS" 1 ;"n = NEW SEASON" 1 ;"m = SAVE ON MICRODRIVE": 1 ;"i.e. 5 2 11 0 (or n to finish" 1 ;"i = INSTRUCTIONS" 1 ;"g = DISPLAY REMAINING GAMES" 1 ;"f = SAVE NEW DATA ON TAPE" 1 ;"e = ENTER RESULTS" 1 ;"c = DISPLAY CURRENT FORM TABLE" 1 ;"a = ALTER TEAM TO FOLLOW" 1 ;"WRITTEN BY A.C.DOVETON" 1 ;"TO INPUT RESULTS ENTER NUMBER OFHOME TEAM FOLLOWED BY A SPACE, THEN GOALS FOR HOME TEAM ,A SPACE AND THEN NUMBER OF AWAY TEAM,A SPACE AND AWAY GOALS" 1 ;"Press any key to continue" 1 ;"OPTIONS" 1 ;"LEAGUE TABLE" 1 ;"LAST ENTRY ";c$(1 1 ;"INVALID ENTRY": 1 ;"Form points": 1 ;"CURRENT TEAM IS ";k$(1 1 -p(l1))*(e+i)/2 1 );"RESULTS ";s$(1 1 );" RESULTS ";s$(1 1 )+" "+n$(n3)+" home" 1 )+" "+n$(n2)+" away" 1 "typing mistake": 1 "season title";s$(1 1 "option?";r$ 1 "number of draws or enter for no change";r$ 1 "hardcopy(y/n)";r$ 1 "Type y for hardcopy otherwise n";r$ 1 "The name of the team you want to follow";k$(1 1 "Season ";s$(1 1 "SEASON";s$(1 1 "Number of wins or enter for no change";r$ 1 "Number of points or enter for no change";r$ 1 "Number of goals scored or enter for no change";r$ 1 "Number of goals conceded or enter for no change";r$ 1 "Number of games played or enter for no change";r$ 1 "Number of defeats or enter for no change";r$ 1 "No.of relegated team(0 if none)";n 1 "No. of team (0 if no more)";l1 1 "Name of promoted team (max 10 letters)";n$(n): 1 "League name(max 32 letters)";f$ 1 "If OK type y,otherwise n to correct";r$ 1 "How many teams in league?";c 1 "How many points awarded for an away win";i 1 "How many points awarded for a home win";e 1 "How many points awarded for a draw";j 1 "Hardcopy?";r$ 1 "Hardcopy (y/n)";r$ 1 "Games played to ";c$(1 1 "Games played on ";c$(1 1 "FINAL TABLE PREDICTION": 1 "Enter the name of one team (max 10 letters)";n$(z) 1 "Enter number of team you want to follow";p60 1 "Enter no. of team";n4 1 "ENTER RESULT";r$ 1 "Do you want a hardcopy?";r$ 1 "Date games played (i.e. 21APR84)";c$(1 1 "DO YOU WANT RESULTS PRINTED(y/n)";r$ 1 "Any more changes";r$ 1 "ANALYSIS OF TEAM MOVEMENTS": 1 " This Program follows the fortunes of your team and the league in which they play." 1 " The first thing to do is to set up the data for the league that your team plays in. This is done using option 's'. Once this has been done you only need use this option again if your team moves to another league." 1 " If the program breaks at any time type GOTO 1 and press enter to restart it. SPECTRUM AND MICRODRIVE The first save to microdrive must be done manually (NOT USINGOPTION m) giving the file the name LT. From then on you can save using OPTION m." 1 " At the end of each season option 'n' will allow you to enter the relegated and promotedteams. Include all teams leavingthe league as relegated, and allteams entering the league as promoted." 1 " After loading the program and pressing enter you are shown the OPTION screen. This is the key screen of the program from which you can select various tasks. When each task is over the program will return to the OPTION screen." 1 " INSTRUCTIONS" 1 " CURRENT FORM": 1 " HOME GAMES" 1 " AWAY GAMES" 1 " " 1 COPYRIGHT 1984"